﻿Module Module1

    Public Function suerte(ByRef x As String)
        Dim suma As Integer
        For Each i As String In x
            suma += CInt(i)
        Next

        Return suma
    End Function

    Sub Main()
        Dim fechaSr, sumaSr, seguir As String
        Dim fecha As Date
        Dim suma As Integer

        Console.Title = "Bucles for 8"
        Do
            Do
                Console.Write("Introduce tu fecha de nacimiento: ")
                fechaSr = Console.ReadLine()

            Loop Until IsDate(fechaSr)

            fecha = CDate(fechaSr)
            sumaSr = fecha.Day + fecha.Month + fecha.Year
            suma = suerte(sumaSr)

            If suma >= 10 Then
                Console.WriteLine("tu numero de la suerte es " & suerte(CStr(suma)))
            Else
                Console.WriteLine("tu numero de la suerte es " & suma)
            End If

            Do
                Console.Write("¿Otro? ")
                seguir = Console.ReadLine()
            Loop Until seguir.ToUpper = "N" Or seguir.ToUpper = "S"

        Loop Until seguir.ToUpper = "N"
    End Sub

End Module
